home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / MacPerl5 / macscripts / sendps < prev   
Encoding:
Text File  |  1993-10-23  |  297 b   |  21 lines  |  [TEXT/MPS ]
  1. Perl -Sx "{0}" {"Parameters"}
  2. Exit
  3. #!/usr/local/bin/perl
  4.  
  5. $| = 1;
  6.  
  7. open(PRINTER, "+>Dev:Printer") || die "couldn't open connection to laserwriter";
  8.  
  9. select((select(PRINTER), $|=1, $/="\012")[0]);
  10.  
  11. while (<>) {
  12.     print PRINTER;
  13. }
  14.  
  15. shutdown(PRINTER,1);
  16.  
  17. while (<PRINTER>) {
  18.     s/\012/\015/g;
  19.     print;
  20. }
  21.